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SECTION 1 | 


INTRODUCTION 
( : oe a 
| The Entrex S480 presents extended editing and validating features in 
the form of a high level Cobol-like language. This language allows a 
| “ yser to perform his own input validation checks and Output Reformatting 
with Arithmetic, Logical, Output and Program Control Statements. The 
| following features are in addition to the character and field error 
detection described in "Formatting Techniques" (S~8): 
i ‘Character Error Detection > 
mae . Field Type (Alpha, Numeric, etc. > 
f » Field Boundary Check 
Field Error Detection 
: . Range Checks 
| » Check Digit Verification . 
» Value Table Lookup 
. Mandatory Epery/Compdete 
3 -. Batch Balancing 
« Ascendency Check 
A, The extended editing features provide record and batch error detection. 
The following features allow for a much greater degree of flexibly. and 
q may be’ sper reese ‘depending on i sieeoa cones tous: 


Record Error Detection : 

- Complex Range Checks 

- Contents Checks 

. Arithmetic Crossfoot Checks 


Batch Error Detection 
- Complex Contents Checks 
P| “+. 4 Complex Arithmetic Checks 
“ . Batch Totals and Subtotals 


Output Formatting ia accomplished by means of Editor Formats Programs 
using powerful output statements. This manual describes record edit, 


y § . 
a batch edit, and Output Formats and gives examples of each. 


‘This programmers’ reference manual is concerned only with the syntactic 
and operational description of these basic program building blocks. It, ' 
therefore, is. geared to that individual responsible for the technical 
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design of the keypunch/unit-record shop, and assumes at least a minimal 
or cursory familiarity with programming terminology and. functions. 


DEFINITIONS a ee 4 "eee 


A program is made up of one or more English language sentences. Each 
sentence is made up of a function word or a function word with one or’ 


more arguments. Two types of programs are used: 


e Error Detection programs 
_@ Output Reformat programs 


The major difference between the two is that Error Detection Programs 
check or validate data, whereas an Output Reformat Program may change — 
and generate data. For instance, an Error Detection Program may compute 
A x B and compare the results with C, whereas an Output. perormat Program 
may compute A x B and store the results in Ce 

| 


RECORD EDIT 


A record edit is performed at the end of each record in ENTRY mode. In. 
VERIFY mode it is performed ened if ene: record is venanged ( if CORRECT 
key is depressed). a : 


Immediately after an operator releases (manually or automatically) out of 
a record, the information just keyed is passed through the record edit 
format. Ail operations pertain only to the immediate record gust: released. 
Data cannot be carried over from record to-.record, 

F 


A record edit is used to edit or check data that can be corrected by the 


operator at the time it is initially keyed. If the operator cannot correct 
the data the edit should be performed either at batch edit time or through 


a separate edit run. This procedure prevents interrupting the operator's © 


keying cadence, ‘ 


+ see 


———— 
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as 


The program will continue either until a RELEASE or STOP statement or 


until the final program statement is executed. A RELEASE statement returns 


the system to the ENTRY mode until the end of the next record when it will 


again retain control. A STOP statement also returns the system to the 


ENTRY mode however, no further execution of the program will occur. 
f . : ; : 
LIMITATIONS (To prevent preees degradation) 


1. Data cannot be carried forward from one record to another record. 
(This can be done at batch edit time. ) eee! a 


2. Totalling of any kind, except within a record, is not sousabiey. A 
record edit is performed within one record. The system will initialize 
aut variables within the prograr for each new record. 


3. Thee variables are allowed per consinaa” (one variable may be ‘used over 
and over to perform many operations within a record) since variables 
may not be used for cumalative eperetrone between records only a few 
variables are needed. 


6. Data cannot be changed. A record edit is used to check data within a 


record only. Changing data can be done via an output format at output 
time. : Tig. Ee : 


5. The output statement is not valid. 


Error Handling 


A program may handle data. input errors in one or two ways: 


1. The program may specify the insertion of'an error character into a 
specified field using the eer statement. 


we The program may display an error message using the PAUSE statement. 


dese Example — 


The following example performs content checking, Fane checking, cross- 


footing and extension checking. 
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ENTRE’ ~YSTEM 480 
EDITOR VODING FORM 


Program Name__ Program Example Originator _ 
Application ____''Record End" Edit ss Date 
PAGE 
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BATCH EDIT 


A Batch Edit is an Error Detection Program executed to check or validate 


. data, and includes: 


go -Complex Range Checks 
~Complex Content Checks 
-Complex Arithmetic Crossfooting 


-Complex Batch Porat rane yenpeerelt tae 


It is performed upon batch termination in either ENTRY or VERIFY mode — 
or both. Immediately after an operator terminates a batch(not interrupts), 


the program will perform all specified operations on that batch. Batch: 


End variables are cumalative and therefore batch totalling, subtotalling 


and record to record checks may be ‘performed. The variables are initial- 
ized just once for the entire batch as opposed to once for each record. 
Initializing a variable means assigning ita ‘value of zero so that the 7 
programmer need not initialize the accumulators. The number of variables 
allowed is 100. | 


Execution ‘of the program will continue ‘until a: STOP. statement is encountere¢ 
It is also possible to Pertorm ‘an edit on a “cerminared batch using an edit 


batch function. 


Limitations 


1. Batch edits are error detection formats therefore data cannot be 
; : 


- changed. Changing data only be accomplished by an output formatting 


“program. — gh ee 


‘Error Handling - 


Both. of the methods Weeceisea in Record Edit error “handling above apply 


ane Batch Edit. 
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Another error handling method available with batch edit formats is the 
creation of an error log. The error log associated with the batch being 
processed is created with the OUTPUT statement. The error log is capable 
of accepting any information, formatted in any way. During edit program 
execution OUTPUT statements generate a disk file which is associated with 


the particular batch in process. 


‘Batch Edit Program Example 


The following example performs content checks, range checks, arithmetic 
crossfoot checks, batch totalling and subtotalling. It creates an error 
log of those records with range check errors, subtotal errors and lists 


entered and accumulated batch totals if they do not match. 
OUTPUT REFORMATTING 


“The output reformats reformats a batch and outputs it to any existing 
output device. All statements are valid for output reformatting. This 
allows for conditional output of records and data changes based on some 


predetermined factors. 


An Output Reformat Program is executed by a Supervisor request, and 


follows the same rules that govern Batch Edit Programs. 
Limitations 


The OUTPUT statement initiates output to a specified output device 
rather than to a disk resident error log. It will not operate an error 


log. An error log is generated by a Batch Edit Program only. 


Output Reformat Edit Program example 


The following example outputs one record for each input record. It also 
outputs a trailer record including the system maintained date and block 
count. A record count is kept to serialize output records. An extension 


is calculated and then punctuated. 
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ENTREX $.sTEM 480 

EDITOR CODING FORM 


Program Example | 


Program Name ” | Originator ————-_____—_ 
Application Batch End Edit Date 
PAGE ——1__ 
1 
2 . 
3 G,O, TO ISTO TAL. 
4 GiO.,T,O oe 
5 — # FLAG (533) ts 
6 P,E, BR, F,0,R | RANGEL. 
7 
8. 1 tx ° * £ {j KF, LA : 1 
~ 
9 A,D,D 1,2 TO, sTiO,T A: Ly 1 f. 
* 10 : A,D,D (,1,3 ,) TQ ,TATA 2, ‘ anes 
PAGE 
_ LINE# ; 
41 
2 1 T,OT,A,L T,O,T,A,L,2 BALERS Ee O,U,T,P,U,T 
3 TED re rue ' E,N,T,E,R,E,D Soa ar 
4 (,2,))- 
5 Re BAS Big. a ae see a Ds See Oe OY : 
6 HRIAINIGIE, JEINTEIR, ) ,GUTARUT | IRANGE, ERROR, ,IN, ,REC 
7 ORD s#'l1 IRABGNQ., , AMY, lpr rr bherryrr tras 
8 PS TaQt A I 1 T,O,;,T Ay Ly 1 O,U,;T,P,U,T, ,' .R,E,C,O,R,DiF# 
9 t R,E,C,N,O ' RR CT SUBTOTAL='! TOTALI. 
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CODING 


The coding sheet used to code Edit, Sort, and- Output formats is Entrex 
‘Order No. M-10. 


The form outlines pages sonsisting of ten lines of forty characters each 


as they appear in their respective libraries. 


‘As many pages as needed to accomodate the coding can be used and will 


represent one page (or screen) in the format libraries. 


The statements are coded in a "free-forn" style. The language consists 


of English sentences made up of statements. 


Statements are separated by spaces (or a comma and a space). Sentences 


are ended with a period. 
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Program Name 
_ Application 


PAGE _1 


LINE # . 


owonNoanawn = 


0 


onan onar wna 


—_ 
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ENTRE: YSTEM 480 ) oo ae 
EDITOR CODING FORM 3 


Originator 
EFORMAT" ED Date C ; 


See fe a ee Citi otic fg 
1T.O% RiBiGiNsOs pp 

Ei: 1(1 51 i 661) 1 17101 PiR1O Di Ci Tied ; 

SULT PUT, REC NO, C2) 103i) C2) (4) P RO ,D,U,C 


fy 


4 , 


f Qj 


(n:p+q) where the 'n' represents the field number, and 'p* and 
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SECTION 2 


ARGUMENTS 7 a 
Within the EDITOR language, there are five legal argument types: field, 
numeric literal, alphameric literal, variable and arithmetic expression. 


Within the context of a particular statement, some argument types may 


be illegal. 


FIELD NUMBER 


A field number is defined as a number from 1 to 2947 and must’ be ens 


closed in parenthesis. . 
Examples: (5) 
(22) 
(2913) 


Additionally, System/480 provides the facility to handle sub-field 
or sub-string specifications. The specification is in the form of 
‘q' 
represent the relative positions within a field of the first and 


last character of the sub-string. When only one character of the 


ae ‘ 
. field is desired, the form (n:p) would suffice. 


‘This sub-string feature allows the system to now manipulate data 
down to the character instead of field level. Throughout this 
document, ‘field #' should be taken to mean any sub-field or sub- 


string within the field number. 


| Examples: (5:2-4) 
(22:3) 
(2913:4-12) 


om 


NUMERIC LITERAL 


A numeric literal is defined as an unsigned or overpunched string 
of digits comprising an integer value. The maximum legal size of 


a numeric literal is 14 characters. 


The overpunch may appear in any position in the string except the 
first (due to the possibility of confusing the string with a vari- 
able name). . 


Examples: 9824 
982% 
+ 
9824 
ALPHAMERIC LITERAL ba 
An alphameric literal is defined as a string of up to 132 characters | 
enclosed in single or double quotation marks. Single quotation marks — 
May appear within a literal enclosed within double quotation marks and’ 


vice versa. Any keyboard character is legal within an alphameric 
literal, . i 


Examples: ‘'MESSAGE' 
, -“tHebprt" 


‘Another form of an alphameric literal would be non'X' where non is 


the number of times (1-132) the single character in quotes would be 


repeated. In other words '$$$9' may also be written 4'9'. This 
form of an alphameric literal requires that only one character be 
specified within quotes. This feature facilitates the filling of 
blanks or zeroes in an output record for both the user and the 

system. It also make more: explicit the definition oF the size of 


a variable when used in a MOVE gtatement.— 


ALPHAMERIC LITERAL Continued 


Examples: 5'z' 
f 120'6' 
_ VARIABLE 


A variable is defined as a name associated with a value. The name 

may be 1-8 characters in length, the first character being A-Zz and 

all following characters being A-Z or §-9. The value may be either 
alphameric or numeric. A numeric variable may contain up to 14 digits 
including a sign. An Alphameric variable may contain up to 29 char- 
acters. The type (alpha or numeric) and logical size of a vereebee 
is generally defined with a MOVE statement as follows: 


- MOVE field/sub-field to variable - 
, size = size of field/subfield 
type = type of field/subfield | 


.MOVE numeric literal to variable 
size = 14 


type = numeric 


-MOVE alpha literal to variable 
size = size of alpha literal 
type = alphameric a 


«MOVE variable to variable 


size = size of first variable 


Ka eh ial 


type = type of first variable . “ 
. MOVE arithmetic expression to variable - 
size = 14 . 
type = numeric 
Examples: xX 
P131— 
TOTAL 


SUBTOTAL 
D1A43BC. 


a oo 
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ARITHMETIC EXPRESSION 


An arithmetic expression is defined -as two or more of any of the 
previously defined argument types connected by any of the follow- 

ing arithmetic operators: + (plus), - (minus), * (times), / (divided 
by). An arithmetic expression is interpreted and performed simply 
from left to right (e.g., there is no hierarchy of operators), and 
it's result is always considered to be 14 numeric positions and right- 
“justified. 3 


Examples: (1) + (2). 


RATE * WEIGHT _ 
_(21)/90 + TEMP - (6) ° 
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SECTION 3 


’ STATEMENTS 


With the EDITOR language there are basically two types of statements: 
‘Action’ statements and ‘Conditional’ statements. Action statements are 
used to perform arithmetic, editing, output, error signalling and pro- 
gram control functions. Conditional statements are used to perform 
logical and special tests. The statements shown below are described on 


the following pages: 


ACTION Verbs ce Page 
ADD: —_ | 3-2 
DECLARE a 3-3 
DIVIDE | B34 
FLAG 345 
GOTO . | 3~6 
MOVE is . 3-9 
MULTIPLY 7 . 3-10 
OUTPUT oe ae 5 
PAUSE | | _—. 3-17 
PERFORM 3-18 
RELEASE | 3-19 
SORT 3-20 
STOP - 3-21 
SUBTRACT = % , 3-22 


CONDITION verbs 


IF 7 3 + B37 
WHEN : 3-23 


‘fi. 
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ADD 
Format: 
/ FIELD ‘ AE nee a 
7 / LITERAL *, gee Se 
ADD ‘( VARIABLE) TO <VARIABLE> . 
: ARITH. / Yao oe eige g 
EXPR. ’ | 


Description; 


‘The data defined by the source argument is added to the current 
contents of the destination argument and the sum replaces the 


. current contents of the destination argument. The contents of 


the source argument remain undisturbed. 


If the logical size of the destination argument is exceeded dur- 


ing this operation, the overflow indicator is turned on and can 


be sensed and utilized by the program. However, if the physical 


size of the system accumulators (14 decimal digits) is exceeded 
at any time during this operation, results of this and future 
arithmetic operations are unpredictable. 


‘Examples: 


ADD (1) TO TOTAL, 


“ADD | (2) + (3) To CREDITS. 


ADD WEIGHT TO RATE. 
ADD 19% TO COUNT. 


ADD (13:3-5) TO TEMP. 


fa ta tf 
y aes 
*e 


J DECLARE 


1. Format: 


DECLARE <VARIABLE> , <VARIABLE> , <VARIABLE> ,.. « © « 


4i. Description: 


poe 


The DECLARE statement is used, purely as an EDITOR program de- 
bugging tool. All variables must be declared within an EDITOR 
program prior to being used. This minimizes the possibility of 
an EDITOR programmer referencing invalid variables within his 
or her program. 


pe: | 


- ii. ‘Example: 


— 


DECLARE TOTAL1, TOTAL2, COUNT... 


ae 


se 
. 


Li. 


iii. 


“DIVIDE 


Format: 
FIELD ‘ ; 
; j LITERAL \ a Ae ae 
DIVIDE VARIABLE ) INTO <VARIABLE> . 
\ ARITH. - So 
EXPR. / ; 
Description: 


‘The data defined by the source argument. is divided shee the cur- 


rent contents of the destination argument and the quotient replaces: 
the current contents of the destination argument. The contents 


of the source argument remain undisturbed. 


If the Logical” size of ‘the decereetion argument is. icewaed: during 


‘this operation, the overflow indicator is turned on and can be_ 


sensed and utilized by the program. However, the physical size ~ 
of the system accumulators (14 decimal digits) is exceeded at any 
time during this operation, results of this and future. arithmetic 
operations are Mnprediceapre: 


Examples: - * raat aoe as Pes (en a fe pen ee 7 ae 


DIVIDE (1) INTO TOTAL. — 


DIVIDE (2) + (3) INTO CREDITS. 


‘DIVIDE WEIGHT INTO. RATE. Lebar ae sey tae ihe te eee 


DIVIDE 199 INTO COUNT: ; po eRe aIe 


DIVIDE (13:3-5) INTO TEMP. . 
z 2 . | j 


fo | -  RLAG 


i. Format: 


FLAG FIELD. 


ti. Description: 


The FLAG statement is one of two error signalling statements: 

It is used to insert an S480 error character into the left 

most position of a specified field, sub-field, or character. 

This statement would most probably be used in conjunction with 
' a conditional statement. - = 


ei: oe Example: 


- FLAG (2). 
FLAG (2:3). dee 8 ae 


FLAG (2:35). 


Gon 


ad. 


iid. 


-GoOoTO 


Format: 


GOTO !LABEL 


Description: | . eae 


The GOTO statement is a program control statement which is used 

to modify the sequential execution of EDITOR sentences by allow- 
ing a program branching capability. A branch may be executed 

to anywhere within an EDITOR program with the acme of into 


a subroutine or out ae a subroutine. 


Example: 


goto! TEST: 


at re 


a a | 


i. 


A. 


. IF 
/ Format: 
Simple 
IF <A> 1 R <h>» 
Compound ae : " 
IF<A>, R <A>» OR IF <A>, R <AP 
. Compound, implied first argument. 
“.Ir< 
IF A>, R <A>, OR ig <A>, 
(i.e.: IF <A>, R<A>, OR IF <A>,. R XA>) 
WHERE: ARGUMENT = FIELD =, 
c LITERAL \ 
_* VARIABLE 
ARITH. EXPR 
RELATIONSHIP = '=' or '#' or ">" or '<' 
Description: 
The IF statement is used for port exains simple and compound log- — 
ical comparisons. Comparisons are considered to be either alpha-. 
meric or. numeric. Alphametic comparisons are performed one 
character at a time from left to right. Numeric comparisons are 
performed on numeric values which is to say numeric arguments 
_which look differently but have equal values are considered equal. 
For instance, '-$$21' is equal to '-21' and equal to '2J' (least 
significant digit oversign). When comparing an alphameric argu- 
ment, the ‘compexteon is a. numeric one. 
. The results of the IF comparison are used to determine the logical 


| direction of an EDITOR program. If the comparison is true, the 


next statement is executed; -if it is false the. next sentence is 


executed. ae: . 
Note: Although there is no ‘explicit "‘AND' connector, the AND 
function can be implied by yeteer tne a series of Cone EEA OR SS 
IF statements. ; 


4440, 


Example: 


“IF (1) = (2): 
“TF (4) # ‘XY! 


IF TOTAL > 199 | 

IF (1) * (2)= X/3 

IF (1) = ‘AB! OR IF (2 
IF TEMP <99 OR 762 


IF DATE = TODAY, IF AM 


) = ‘cp’ . 


T< 14508 
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i. 
| ii. 
i iii. 


MOVE 
Format: 
FIELD x ee 
LITERAL \ . 
MOVE VARIABLE ) TO <VARIABLE>. 
ARITH. 
EXPR. : 


Description: 


The data defined by the source argument is duplicated in the des- 
tination argument, destroying the current contents of the destin- 
ation argument. The contents of the source argument remain undis- 
turbed. 


One of the properties of a MOVE statement is that it is a way of 
defining the logical size and type (alpha or numeric) of a var- 


dable. This is simply done by allowing the variable to take on 
the attributes of the data being moved to it. 


Examples: 


MOVE (1) TO TOTAL. 


MOVE (2) + (3) TO CREDITS. 


MOVE WEIGHT TO RATE. 
MOVE 19% TO COUNT. 
MOVE (13:3-5) TO TEMP. 


MOVE 'DEPT. NO.' TO HEADER. 


ii. 


iii. 


MULTIPLY. 


Format: 
FIELD 
LITERAL : 
MULTIPLY : VARIABLE \ TIMES | <VARIABLE>. 
ARITH. ; 
EXPR. / 
Description: 


The data defined by the source argument is multiplied by. the 
current contents of the destination argument and the product 
replaces the current contents of the destination argument. 
The contents of the source argument remain undisturbed. 


If the logical size of the destination argument is exceeded dur- 


ing this operation, the overflow indicator is turned on and can 
be sensed and utilized by the program. However, the physical 
size of the system accumulators (14 decimal digits) is exceeded 
at any time during this operation, results of this and future 
arithmetic operations are unpredictable. a 
Examples: 

MULTIPLY (1) TIMES TOTAL. 

MULTIPLY (2) + (3) TIMES CREDITS. 

MULTIPLY WEICHT TIMES RATE. 

MULTIPLY 199 TIMES COUNT. 


MULTIPLY (13:3-5) TIMES TEMP. 


=r ae ee Ea ere a, | eee peewee eee Rewer Poet | aka | RETR pens Pocus Sd eee awe frag | eee ‘ee 


ao 


| 


' 


pee — 


ii. 


OUTPUT 


- Format: | 
FIELD J FIELD : FIELD 
aged LITERAL LITERAL LITERAL 
OUTPUT ' {. VARIABLE ; - VARIABLE / ....\ VARIABLE ; 
mo. CONTROL CONTROL CONTROL 
4 
Description: ae 3 


The OUTPUT statement in the EDITOR allows the creation of a new 
record consisting of parts of or the entire current record; alpha 
or numeric literals; alpha or numeric variables; and control 
functions. : 


‘A. Argument Modifiers - may be used to further define any field, 


variable, or arithmetic expression to allow for character editing. 
An argument modifier consists of a vertical -Bar (t) followed 
by an edit specification, and immediately follows the argument 


which it modifies. 


The following are legal edit specifications: 

{LS - Truncate all leading spaces 

ILZ - Truncate all leading zeroes 

jRS Empenoaee all ‘trailing spaces 

IRZ - Truncate ail ‘tratiing zeroes 

{PK - Packed decimal format 

(Mask! - Where MASK is an alphameric literal whose largest 
size’ is 2% characters including all MASK characters. 
If the argument is longer than the MASK, the argument 


‘will be truncated and any floating or fixed dollar sign 
will be lost. 


' Legal Characters for 'MASK''. 


‘An underscore in. the edit mask is replaced by the corres- 
ponding digit from the specified variable. 
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OUTPUT 


Description: 


Legal Characters for 'MASK' continued 
; 1 
1) A zero is used to indicate zero suppressfon. It is placed 
in the right most position where zero suppression is to 
take place. It is replaced with the corresponding char- 
acter from the variable unless that character is a zero. 


x An asterisk is used for asterisk protection and zero supp- 
ression. It is put in the right most position where aster- 
isk protection is to take place. 


$ A dollar sign entered immediately to the left of the zero 
suppression code or asterisk protection code causes the 
insertion of a dollar sign in the peeteaee to the left of 
the first significant digit. 


A dollar sign in the left most Peers of the MASK is con- 
sidered fixed. A fixed dollar sign is placed in the same 
location each time. 


-»8 Decimal points, commas end blanks are placed in the output 
field in the relative positions they were written in the 
MASK unless they are to the left of significant digits. 


CR - The characters CR or a minus sign in the last positions of 
the edit MASK are undisturbed if the sign of the variable 
field is negative. If the sign is plus the CR or minus 
sign is blanked out. «- RS eae ea, “Oe hanes, 


N.B., Zero and asterisk are mutually exclusive. If they 
should both occur the one in the jeast significant vere pe 
will take precedence. : 


B. Control functions - may be used at any time within an OUTPUT 
statement. They must be enclosed in angle brackets... The follow- 
ing are legal control functions: 


<ALL mm-nn> 


The ALL function allows the outputting of multiple fields 
with one control statement. oF Fa 


if nn is not specified output is from. field # mm to the 
end Of the record. — 


if neither mm nor nn is specified, the entire record 
is output. 
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OUTPUT 


i./ Description: 


Control Functions Continued | 
; t 
<BATCH> / ay =. 
When “ihe control function is encountered, it causes the current 
‘-batchname to be inserted into the next ten character positions 
- of the output record. 


_<BLK n> 


The BLK function allows the EDITOR: to output the physical tape 
block count. ‘'n' specifies the size of the field in characters 
within which the count is output. If n is smaller than the ace 
.. tual count the count will be truncated. If n is zero there is 
. no output regardless of the count. . 


a 


o— 


‘Note: 1) <n<= 5 
 <COUNT: XXXX> 


‘This control function, when encountered indicates that number of 

characters contained in the current record are to be inserted in- 
‘to the output record. The count may be from 1-4 characters with 

leading or trailing spaces but no imbedded spaces. The count may 
be in binary or decimal digits, specified by placing a B or D in 

‘the correct positions. Examples of COUNT : 


- DDSS Two digit decimal count two trailing spaces 
BBSS . Iwo digit binary count two trailing spaces 
‘. DDD Three digit decimal count 
SSBB ‘o digit binary count with two leading spaces. 
|| <DATE x> | 
: The DATE function allows. EDITOR access to the system Global date 
-. Which consists of 6 characters in the format in which it was en- 
tered by the user. The optional use of 'X' provides the follow- 
4 ing facilities: . 
‘ eix-charactex formatless 
4 et X  eight-character of format mnXddXyy where 'X' is any legal 
'. character except underscore ( 2) which is used to signify 
q blank. 3 
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ii. 


OUTPUT. 


Description: ; 
Control Functions Continued 

<DEFER> . 
This control function which may appear anywhere within an OUTPUT © 
statement would be used to specify that the arguments within an 
OUTPUT statement do not make up a complete output record but on- 
ly a partial one. This would facilitate ae just one ourpee 
record from many input records. 

<EOF> 
The EOF function allows for the closing on files. Ifa pad char- 
acter has been specified it will pad out the current block, and _ 
write an industry compatible tape mark. If no pad character is 
specified it .will.write a short. block followed by an industry 
compatible tapemark. If no tape drive is available instruction 
is ignored. 

<HEX XX> 
The EBCDIC equivalent of 'Xx' is generated. — 

<JOB> , 
This causes the name of the Standard job used to enter the current 
batch to be inserted into the next eight character positions. of 
the output record. 

<LABEL> 
This control function, which may appear anywhere within an OUTPUT 
statement would be used to are that the current record is a 
label and not a data record. occurrence of such a record would 
cause the output buffer to be a dled as if an EOF were encountered, 
with the exception of writing a tape mark, after which the label 
would be output. regardless of any specified blocking options. 

eee: Y 


The LF function causes a line feed and carriage return to be ex- 
_ecuted by the a 


<PGM> 


This causes the number ‘of the input format under which the current 
record was created to be inserted in the output record. 


a 
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OUTPUT 
414i. Description: . 
Control Functions Continued ; 
S<RWND > 
The RWND function causes an unconditional rewind of the tape. 
If no tape is mounted instruction is bypassed. 
This function would when executed insert blanks into the output 
record starting from the current character position up to and 
including the character position as specified by nnnn. 
<SKIP nonn> 
“"/ this function would when executed insert blanks into the 
output record starting from the current character position 
up to and including the character position as specified by 
nnnn. See, ae Tae - 
<TOP> 
“The TOP function allows for the positioning of forms to the first 
‘“gvailable print line as determined by the carriage control apes 
‘On devices where this function would not be valid it will be ig- 
nored. 
iii. Examples: 


OUTPUT. (1), (2), (3), '123', ABC 

OUTPUT <ALL> ,<DATE> . | 

OUTPUT (1), <LF>, (2),<LF>, (3), <TOP>. 
OUTPUT <EOF> «<RWND>. 

OUTPUT FILENAM, <DATE>, < BLK#5): 

OUTPUT <SKIP 69>, 'TOTAL’, TOTI' _ _ $. _ _ OCR’. 
ouTPpUT '!',<JOB> .<BATCH>. 


OUTPUT <PGM >,<ALL> . 


9T~-€ 


MASK 

_ _0. ' 

oo _$0. ' 

S, 0. ’ 

's * t 

ts oo es CR 

'  _ _._ _JCR' 
"S$ - 0%, ist 
's _*0._ -?t 
ae 2s 0 _$0._ ies Figs 
"_ _ _$0._ _CR' 
8 0 8 


VARIABLE 


000005 
000005 
000005 
000005 
13560 
13560 
13560 
149363 


149363 © 


1763421 
17631 
000005 


+DATA 


05 
$.05 
$44.05 
S*¥** 05 

135.60 
135.60 
135.60 
$*1493.63 
$1493.63 
$1,763.421 


$17¥6.31. 


005 


RESULT | 


Examples of the ‘MASK’ Edit Specification 


-DATA 


.ON 
$.0N 
$4b~.ON 
$*** ON 
135.60- 
135.60CR 
135.60KCR 
$*1493.63- 
$41493.63- 
$1,763.421- 


$17K6.31cR: 


OON 


— | 6a 


ws 


i 


cf ‘ 
; 
| 


iii. 


ae 


Format: . zs ' 


PAUSE ALPHAMERIC LITERAL. / 


Description: 


. The PAUSE statement is the second of two error signalling state- 


ments. It is used to display a specified error message of up to 
forty characters on the error line of the data/scope terminal. 
Execution of this statement also causes the error beeper to sound 
off which remains on until the ‘reset’ key is struck. This state- 
ment would most probably be used in conjunction with a conditional 
statement. This statement may also be used as a debugging tool 
when testing new EDITOR programs. This statement may be used with- 
out specifying an alphameric literal for display. In this case, 


- the system message 'PAUSE' is displayed. 


atl 


Example: 


| PAUSE. 
-° PAUSE 'TOTAL IN FIELD 3 INCORRECT’ 
‘. PAUSE ‘ARITHMETIC OVERFLOW, ABORT!' 


3-17 


ii. 


Lili. 


PERFORM 


Format: 


PERFORM } LABEL 


Description: 


The PERFORM statement is a program control statement which is used 


to execute a specified group of sentences from different points - 
within an EDITOR program by arr Oeene a single -level subroutine 
call capability. 


An EDITOR subroutine is a closed subroutine with only one way in 
and one way out. The entrance and exit (beginning and end) are 


‘defined by the special words ENTER and EXIT. A program branch 


(GOTO) to the entrance of or anywhere within a subroutine is 

illegal. Also illegal is a program branch out of a subroutine. - 
However, a program branch within a subroutine is legal. In. fact, 
it may be necessary to branch to the subroutine EXIT. | ...°%: 


Example: : sage B82 ae sos Bee ok. bibiieiitt aes 


PERFORM IvEST aa eine ee ge + 8 Steet s 


TEST, ENTER ...EXIT 


—, 


s ss ’ - s 


‘a 


~ 
-* 


a 


Ce i ae OCU Oe 
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ii. 


' £44. 


RELEASE 


Format: 


/ . % 
RELEASE (AT END, STATEMENT). . 


Pr 


Description: / 


The RELEASE, AT END. statement is a program control statement which 
-is used to perform several functions. When executed, this state- 


ment will cause program control to release the current record, 
get the next record and branch to the very beginning of the EDITOR 
program for further execution. If at the end of a batch (no next 


record to get), program control will execute the sentence immedi- 
ately following. If no RELEASE statement is encountered during 


program execution, the RELEASE function will be performed immedi- 


ately following execution of the last statement in the progrn. 
.If the AT END option is not employed after the RELEASE and END 
OF: “FILE is reached, a STOP statement is implied. 


‘The first time a RELEASE STATEMENT is executed within an EDITOR 
program, the second record of the batch will be fetched. This 


implies that the first record of a batch is automatically fetched 
by the system and ready to be processed at the very start of 


EDITOR program execution. It is, important to remember this so 


that oe first record is ‘not inadvertantly ignored. 


The RELEASE statement is an exception in regard to grammatical 
rules pertaining to statements and sentences. 


Example: 


RELEASE, AT END STOP; 


RELEASE, AT END GOTO ! FINISH. 


- RELEASE. 
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“444. 


SORT. ' 
Format: ; >. 
FIELD FIELD FIELD 
Sone LITERAL LITERAL f LITERAL 
VARIABLE ; VARIABLE see +: \ VARIABLE 


CONTROL CONTROL _ CONTROL 


Description: 


The SORT verb is used to generate a sort key to be used during 
any SORT/MERGE operations. It is identical in format to the 
OUTPUT statement with the ecareton of the eee two address 
modifiers. 

JAN - Kecenaide ey 
[DN - Decending key. 
In the absence of either of the above modifiers, ascending is as- 
sumed. Note that ascending and BSSC Rennes may be intermixed with- 
in any SORT statement. 
Examples: 

SORT (1:2-4) |DN (5), ‘1’. 
SORT <PGM>, (1) | AN (6:3). 
SORT <DATE> ,<ALL 2-4>. 


ny 


i 
‘ 


§ TOP 


ia 


i. Format: 


STOP. 


ii. Description: : ae : 
The STOP statement is a program control statement which is used. 
to halt execution of an EDITOR program. Should the. EDITOR pro- 


gram not contain at least one STOP statement, execution will be 
‘halted upon encountering the end of file. 


1ii. Example: 


STOP. 


Paes | | 6 3saL: 


oo 


ii. 


1ii. 


.  §$UBTRACT 
Format: 
FIELD 
LITERAL 
SUBTRACT VARIABLE FROM < VARIABLE >. 
EXPR. 
Description: 


The data defined by the source argument is subtracted from the 
current contents of the destination argument and the difference 
replaces the current contents of the destination argument. The 
contents of the source argument remain undisturbed. 

If the logical size of the destination argument is exceeded dur- 
ing this operation, the overflow indicator is turned on and can 
be sensed and utilized by the program. However, the physical size 
of the system accumulators (14 decimal digits) is exceeded at any 
time during this operation, results of this and future arithmetic 
operations are unpredictable. 

Examples: 

SUBTRACT (1) FROM TOTAL. 

SUBTRACT.(2) +(3) FROM CREDITS. 

SUBTRACT WEIGHT FROM RATE. 

SUBTRACT 199 FROM COUNT. 


SUBTRACT (13:3-5) FROM TEMP. 
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. ii. 


” WHEN CONDITION df 7 


Format: 


. f 
Description: 


z 


The WHEN statement functions exactly as does the IF statement 


except that it. tests certain conditions or states within the 
system as opposed to logical relationships. The conditions tested 


- are: 


- a. WHEN FLAG 


The WHEN. FLAG statement is used to test for the presence of the ER- 


. ROR’ character anywhere in the current record. This should be used 


Sparingly as it greatly decreases system efficiency due to the nec-~ 


‘essity of completely scanning the record upon encountering this 
‘statement. 


b. WHEN OVERFLOW | 


The WHEN OVERFLOW statement is used for checking for logical 
arithmetic overflow. It:refers to the last arithmetic opera- 


tion that took place, and applies to arguments which are arith- 
metic expressions as well as the ADD, SUBTRACT, MULTIPLY AND 


.DIVIDE statements. It is important to note that arithmetic 


overflow occurs in two different forms: 

a Logical Overflow - is when a number within a variable 
exceeds the number of decimal positions specified by the user. 

. in a MOVE statement. That is, of course, when the logical 
size is less than the physical size. In this case a trunc- 
ation is performed thereby retaining only the specitied amount 

_ Of decimal digits. The overflow switch is turned on and it 

'- ds up to the user to test this switch with a 'WHEN OVERFLOW’ 

statement. 

° ’ Physical Overflow - is when the system encounters a 
number it cannot handle (greater than 14 digits). In this 
case a warning message is displayed on the error line and 
the user would have the option of aborting or proceeding. 

- Subsequent arithmetic operations are not predictable. This 

- overflow type cannot be tested by 'WHEN OVERFLOW’. 
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ii. 


fit. 


WHEN 


Description: 


‘ce. WHEN NOT PGM n (where n = 9-9) 


The WHEN PGM statement is used for testing which ‘input format 
the current record was or was not entered under. - The NOT is 
ppetonat: : 


d. WHEN RECORD nn (where § >nn < 65969) 


The WHEN RECORD statement is used for testing for the relative 
number within the batch of the current record. It also may be 
used to check for the beginning of a batch ay apect tying record 
number one. 


‘Examples: 
WHEN FLAG, GOTO ERROR, 


' WHEN OVERFLOW, PAUSE ' EXCEEDED 999'. 


WHEN PGM 4, GOTO !D04 


‘WHEN NOT PGM 4, ADD 1 TO COUNT. 


‘WHEN RECORD 1, PERFORM !HEADER. 
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SECTION 4 


S ’ SENTENCES 


GRAMMAR 


_ A program sentence may comprise one and only one action statement Or 


one and only one ‘action’ statement preceded by any number of condi- 
tional statements. An action statement may be considered an indepen- 
dent clause, therefore, one or more conditional statements alone do 


not constitute a valid sentence. 


Examples: IF (1) = (2). (illegal - no action statement) 
‘IF (1) = (2), ADD (5) TO TOTALI1. 
WHEN PGM2, IF (1) = (2), ADD (5) TO TOTALI1. 


Note: An exception to the above rules of grammar occurs in 


the RELEASE statement. 


‘CONDITIONAL EXECUTION 


When executing a sentence with conditional statements the following . 
rule applies: When a conditional test proves to be false, program 


control will branch to the next sentence by-passing all statements up 


to that sentence, otherwise the very next statement will be executed. 


SENTENCE LABELS 


Sentences may be preceded with a label so that they may be branched 
to with a GOTO statement or called with a PERFORM statement. A 

label must be immediately preceded by exclamation point and may be 
up to 8 characters in length ‘with the first character being A-Z and 


all other characters A-Z or ¢-9. 


Example: !START, ADD 1 TO COUNT. 
IFINISH, STOP. . 4 


| PUNCTUATION 


» Period is used as a sentence delimiter just as in the English oe 
language. It is critical that the period be used correctly - 
so that sentences with conditional statements will be executed 
properly. . 


» Commas are most commonly used to separate statements. When 
separating two conditional statements, the comma implicitly 
defines a logical "AND'. Commas may also be used to separate 


fo “sentence labels from sentences, RELEASE from AT END and just. 
program legibility and are not really necegsary: 


Example: ITEST, WHEN PGM2, IF (1) = X, ADD (2) TO TOTAL. - 
equates to: . 


ITEST WHEN PGM2 IF (1) = X ADD (2) TO TOTAL. 


. Spaces are used to separate all verbs arguments, connectors’ _ 
and stateménts that are not otherwise separated by: period, 


comma, or arithmetic operator. 
; 


about anywhere they make sense. Commas are primarily for... ; 


